home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Purity
/
Purity #22 (1994-01-19)(Diesel)(DE)[WB].zip
/
Purity #22 (1994-01-19)(Diesel)(DE)[WB].adf
/
MagicBlank
/
LINES.h
< prev
next >
Wrap
Text File
|
1994-01-17
|
870b
|
47 lines
{$if not def MAGICBLANK_LINES_H}
CONST
MAGICBLANK_LINES_H = 2;
{ ****************************************
* Malt bunte Linien auf den Bildschirm *
**************************************** }
PROCEDURE Lines;
VAR
dum : LongInt;
rp : p_RastPort;
f,x,y,x1,y1 : Integer;
BEGIN
rp:=^sp^.RastPort;
dum := 150; { 150 Linien malen }
sig1 := SetSignal(0,0) AND SBF_CF;
While sig1 = 0 Do
BEGIN
Dec(dum);
If dum<=0 then
BEGIN
SetRast(rp,0);
DisplayBeep(sp);
Exit;
END;
REPEAT
f:=Random(8);
UNTIL f IN [1..7];
SetAPen(rp,f);
x:=Random(sp^.Width);
y:=Random(sp^.Height);
x1:=Random(sp^.Width);
y1:=Random(sp^.Height);
Move(rp,x,y);
Draw(rp,x1,y1);
Delay(3);
SetAPen(rp,0);
Move(rp,x,y);
Draw(rp,x1,y1);
sig1 := SetSignal(0,0) AND SBF_CF;
END;
END;
{$endif}